finish  
/clear  
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
/filn,flange
/title,flang_bolt
!趨ṹλN,mm,MPaܶΪtons/mm3
*SET,PN,4                  !ѹ   
!ṹߴѭͼ
*SET,DN,900            
*SET,D,1115 
*SET,D1,1055           
*SET,D2,1010           
*SET,D3,1000           
*SET,D4,997            
*SET,dta,86            
*SET,H,170  
*SET,xh,42  
*SET,a,3
*SET,a1,3
*SET,dta1,24
*SET,dta2,36
*SET,R,15   
*SET,xd,33  
*SET,h1,225 
*SET,h2,50  
*SET,L,2.5*((DN/2+0.5*dta1)*dta1)**0.5     !Ͳ峤
*SET,N,360/96                !ֶ
*SET,nut_rad,50.85/2         !ĸ뾶
*SET,nut_h,25.6              !ĸ߶
*SET,bolt_h,250              !˨߶
*SET,forc_bolt,35000         !˨Ԥ

/prep7                       !ǰ
et,1,solid45                 !ʵ嵥Ԫ
et,2,TARGE170                !3DӴĿ浥Ԫ170   
et,3,CONTA174                !3DӴӴ浥Ԫ174   
keyopt,3,9,0                 !ʼ͸
*AFUN,DEG                    !趨ǶȵλΪ   
!巨1
mp,ex,1,2.16e5               !趨ģ  
mp,nuxy,1,0.3                !岴ɱ  
mp,dens,1,7.85e-9            !ܶ 
!˨2
mp,ex,2,2.11e5               !趨ģ  
mp,nuxy,2,0.3                !岴ɱ   
mp,dens,2,7.85e-9            !ܶ   
!ĦϵΪ3
mp,mu,3,0.3

!!!!!!!!!!!!!!Ϸ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!ؼ   
k,1,DN/2,a+H
k,2,DN/2+dta1,a+H   
k,3,DN/2+dta1,a+xh+dta  
k,4,DN/2+dta2,a+dta 
k,5,D1/2,a+dta  
k,6,D/2,a+dta   
k,7,D/2,a   
k,8,D1/2,a  
k,9,D4/2,a  
k,10,D4/2,0 
k,11,DN/2,0 
k,12,DN/2,a+dta 
k,13,DN/2,a+dta+xh 
!ͨؼ 
*do,ii,1,12 
l,ii,ii+1   
*enddo  
l,1,13  
lfillt,2,3,R                !
lfillt,3,4,R                !
l,13,14 
l,12,17 
l,17,9  
l,5,8   
!߹
al,1,2,16,13
al,16,14,3,15,17,12 
al,17,18,9,10,11
al,4,19,8,18
al,5,6,7,19 
cm,flang_up,area            !Ϸ
!!!!!!!!!!!!!Ϸ!!!!!!!!!!!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!·!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!ؼ     
k,18,DN/2,a-a1  
k,19,D3/2,a-a1  
k,20,D3/2,a 
k,21,D1/2,a 
k,22,D/2,a  
k,23,D/2,a-a1-dta   
k,24,D1/2,a-a1-dta  
k,25,D3/2,a-a1-dta  
k,26,DN/2+dta2,a-a1-dta 
k,27,DN/2+dta1,a-a1-dta-xh  
k,28,DN/2+dta1,a-a1-H   
k,29,DN/2,a-a1-H
k,30,DN/2,a-a1-dta-xh   
k,31,DN/2,a-a1-dta  
!ͨؼ 
*do,ii,18,30
l,ii,ii+1   
*enddo  
l,18,31 
lfillt,27,28,R  
lfillt,28,29,R  
l,30,35 
l,31,32 
l,21,24 
l,19,25 
!߹
al,29,30,31,36  
al,35,36,32,37,34,28
al,20,39,27,37,33   
al,21,22,38,26,39   
al,23,24,25,38  
asel,u,area,,flang_up         !ѡflang_up֮   
cm,flang_down,area            !·  
!!!!!!!!!!!!!·!!!!!!!!!!!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!Բͷ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!   
k,,0,a+H+h2                   !ͷλùؼ
circle,36,1                   !λԲ
KWPAVE,36                     !ƽ趨
CSYS,4                        !湤ƽϵ
lsscale,40,43,1,DN/2+dta1,h1+dta1,,,1  !ԵλԲԲ()
lsscale,40,43,1,DN/2,h1,,,1   !ԵλԲԲţڱ棩
ldele,49,51,1,1               !ɾ߶ 
ldele,45,47,1,1 
ldele,40,43,1,1 
wpstyl,defa                   !ָƽĬ״̬ 
l,45,41                       !ӷͷˡβ 
l,42,46 
l,1,45                        !ӷͷ뷨  
l,2,41
!߹ɷͷ  
al,40,42,1,43   
al,44,40,48,41  
asel,u,area,,flang_down       !ѡ񹹳ɷͷ 
cm,coping,area            !ͷ  
!!!!!!!!!!!!!ͷ!!!!!!!!!!!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!Ͳ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!   
allsel  
k,,DN/2,a-a1-H-L              !Ͳ׶λõ
k,,DN/2+dta1,a-a1-H-L   
a,28,29,37,38                 !Ͳ·   
asel,u,area,,flang_up   
asel,u,area,,flang_down 
asel,u,area,,coping           !ųͲ֮
cm,pot,area             !Ͳ 
!!!!!!!!!!!!!Ͳ崴!!!!!!!!!!!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!֮ճ!!!!!!!!!!!!!
asel,s,area,,flang_up   
asel,a,area,,coping 
aglue,all          !ͷϷճ 
asel,s,area,,flang_down 
asel,a,area,,pot
aglue,all          !Ͳ·ճ   
kdele,36           !ɾģи
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   
allsel  
vrotat,all,,,,,,42,46,N        !еyתN,
 
!!!!!!!!!!!!!˨!!!!!!!!!!!!!   
KL,76,0.5, ,                   !趨ؼƽ76õΪ˨
KWPAVE,77                      !ƽƶõ
wprota,0,90                    !ƽxת90
cyl4,,,xd/2,,,,bolt_h          !˨
!˨ཻһԱѡȡ   
vsel,s,volu,,4,5,1  
vsel,a,volu,,9,10,1 
cm,buer,volu                   !˨ཻbuer
allsel 
bopt,numb,off  
vsbv,buer,14                   !buer˨вڳ˨׶
cyl4,,,xd/2,,,,bolt_h          !˨,Ϊ4  
VGEN,,4,,,,,-(bolt_h/2-dta-a),,,1   !˨ƽλ   
rpr4,6,,,nut_rad,,-nut_h            !ĸ
vgen,2,5,,,,,2*dta+a1+nut_h,,,0     !ĸλ  
!!!!!!!!!!!!!˨!!!!!!!!!!!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!ѡ!!!!!!!!!!!!!   
vsel,s,volu,,4,5,1  
vsel,a,volu,,9  
vptn,all
cm,bvolu,volu                   !˨   
allsel  
wpstyl,defa 
vsel,s,loc,y,-H-L,a1
vsel,u,volu,,bvolu  
cm,flang_dvolu,volu             !· 
allsel  
vsel,s,loc,y,a1,H   
vsel,u,volu,,bvolu  
cm,flang_upvolu,volu            !Ϸ
allsel  
vsel,s,loc,y,H+a,H+h1+dta1  
cm,cop_volu,volu                !ͷ

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!  
mat,1                           !ָ   
esize,5                         !ָԪС 
cmsel,s,cop_volu                !ѡзͷ
vsweep,all                      !Էͷ
esize,5                         !ָԪС  
cmsel,s,flang_dvolu             !ѡ·
vsweep,all                      !·  
cmsel,s,flang_upvolu            !ѡϷ
vsweep,all                      !Ϸ   
esize,4                         !ָԪС 
mat,2                           !ָ      
cmsel,s,bvolu               !ѡ˨  
vsweep,all                      !˨ 
!!!!!!!!!!!!!񻮷!!!!!!!!!!!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!ģͽڵѹϲ!!!!!!!!!!!!!!!!!!!!!
!ϲϷڵ
allsel  
vsel,s,loc,y,0,2*H  
vsel,u,volu,,bvolu
nslv,s,1
nummrg,node
!ϲ·ڵ 
allsel
vsel,s,loc,y,-(H+L),a1
vsel,u,volu,,bvolu
nslv,s,1
nummrg,node
!!!!!!!!!!!!!ڵϲ!!!!!!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!˨ԤԪ!!!!!!!!!!!!!!!!!!!!!
allsel  
!0ϵ£˨1(14)ԤԪsecidΪ1,nameΪbolt1
!ԤԪΪyᣬλΪy0λôͬʱԤԪ洢bolt_1ԪУԤԪpretention179Ԥȶ
psmesh,1,bolt1,,volu,14,0,y,0,,,,bolt_1 
!!!!!!!!!!!!!˨ԤԪ!!!!!!!!!!!!!!!!!!


!!!!!!!!!!!!Ӵ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 
!ӴԪ
cmsel,s,flang_upvolu          !ѡϷ
aslv                          !ѡϵ
asel,r,loc,y,0                !ͨѡϵĽӴ  
cm,as_up,area                 !ϷӴas_up   
allsel  
cmsel,s,flang_dvolu           !ѡ· 
aslv                          !ѡϵ
asel,r,loc,y,a-a1             !ͨѡϵĽӴ  
asel,r,loc,x,0,D3/2            
cm,as_down,area               !·Ӵas_down  
r,1                           !Ӵʵ1
real,1                        !ָʵ1  
mat,3                         !ָ3
cmsel,s,as_up                 !ѡϷӴas_up    
type,2                        !ָԪӴ2  
nsla,s,1                      !ѡӴϵнڵ㣬߽
esln,s,0                      !ѡЩڵĵԪ
esurf,all                     !ӴԪ   
allsel  
cmsel,s,as_down               !ѡ·Ӵas_down 
type,3                        !ָԪӴ3   
nsla,s,1                      !ѡӴϵнڵ㣬߽
esln,s,0                      !ѡЩڵĵԪ
esurf,all                     !ӴԪ   

!͹ӴԪ 
allsel  
cmsel,s,flang_upvolu          !ѡϷ
aslv                          !ѡϵ
asel,r,loc,y,a                !ͨѡϵĽӴ  
cm,as_up1,area                !ϷӴas_up1  
allsel  
cmsel,s,flang_dvolu           !ѡ· 
aslv                          !ѡϵ
asel,r,loc,y,a                !ͨѡϵĽӴ   
cm,as_down1,area              !·Ӵas_down1
et,5,TARGE170                 !Ŀ굥Ԫ170   
et,6,CONTA174                 !ӴԪ174
keyopt,6,9,0                  !ʼ͸
r,2                           !Ӵʵ2
real,2                        !ָʵ2   
mat,3                         !ָ3
cmsel,s,as_up1                !ѡϷӴas_up1   
type,5                        !ָԪӴ5 
nsla,s,1                      !ѡӴϵнڵ㣬߽
esln,s,0                      !ѡЩڵĵԪ
esurf,all                     !ӴԪ    
allsel  
cmsel,s,as_down1              !ѡ·Ӵas_down1
type,6                        !ָԪӴ6  
nsla,s,1                      !ѡӴϵнڵ㣬߽
esln,s,0                      !ѡЩڵĵԪ
esurf,all                     !ӴԪ    

!ĸϷӴ   
allsel  
cmsel,s,bvolu           !ѡ˨  
KWPAVE,77                     !ƽ77
wprota,0,90                   !ƽxת90 
aslv                          !ѡϵ
asel,r,loc,z,0                !ͨѡ˨ϵĽӴ 
asel,u,area,,104              !ɾ˨棬ĸ
cm,b_up,area                  !ĸϷӴb_up
cmsel,s,flang_upvolu          !ѡϷ
aslv                          !ѡϵ
asel,r,loc,z,0                !ͨѡϷϵĿ   
asel,r,loc,x,-(D-D1)/2,(D-D1)/2 
cm,f_up,area                  !ϷĸĿf_up
cmsel,s,bvolu           !ѡ˨     
aslv                          !ѡϵ
asel,r,loc,z,2*dta+a1         !ͨѡ˨·ĽӴ   
asel,u,area,,108              !ɾ˨棬ĸ
cm,b_down,area                !ĸ·Ӵb_down
cmsel,s,flang_dvolu         !ѡ· 
aslv                          !ѡϵ
asel,r,loc,z,2*dta+a1         !ͨѡ˨·Ŀ   
asel,r,loc,x,-(D-D1)/2,(D-D1)/2 
cm,f_down,area                !ĸ·Ŀf_down
et,7,TARGE170                 !Ŀ굥Ԫ170     
et,8,CONTA174                 !ӴԪ174  
keyopt,8,9,0                  !ʼ͸
r,3                           !Ӵʵ3
real,3                        !ָʵ3   
mat,3                         !ָ3
cmsel,s,b_up                  !ѡĸϷӴb_up
type,7                        !ָԪӴ7   
nsla,s,1                      !ѡӴϵнڵ㣬߽
esln,s,0                      !ѡЩڵĵԪ
esurf,all                     !ӴԪ  
allsel  
cmsel,s,f_up                  !ѡϷĸĿf_up
type,8                        !ָԪӴ8     
nsla,s,1                      !ѡӴϵнڵ㣬߽
esln,s,0                      !ѡЩڵĵԪ
esurf,all                     !ӴԪ   

!ĸ·Ӵ   
et,9,TARGE170                 !Ŀ굥Ԫ170     
et,10,CONTA174                !ӴԪ174 
keyopt,10,9,0                 !ʼ͸
r,4                           !Ӵʵ4
real,4                        !ָʵ4   
mat,3                         !ָ3
cmsel,s,b_down                !ѡĸ·Ӵb_down
type,9                        !ָԪӴ9   
nsla,s,1                      !ѡӴϵнڵ㣬߽
esln,s,0                      !ѡЩڵĵԪ
esurf,all                     !ӴԪ                   
allsel  
cmsel,s,f_down                !ѡĸ·Ŀf_down  
type,10                       !ָԪӴ10    
nsla,s,1                      !ѡӴϵнڵ㣬߽
esln,s,0                      !ѡЩڵĵԪ
esurf,all                     !ӴԪ    
!!!!!!!!!!!!Ӵ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 
  
FINISH  
/SOL                          !⴦
allsel  
lsclear,all                   !غ 
NROPT,Full                    !ȫNewton-Raphson
pred,on                       !򿪱Ԥ
lnsrch,on                     !   
antype,0                      !̬ 
autots,1                      !Զʱ䲽 
nsubst,25,100,1               !غɲ 
outres,all,all                !н 
eqslv,pcg,1e-8                !pcg㷨ڴģͽӴ㷨Ч
   
wpstyl,defa !ƽָĬ״̬
csys,5  !ϵyΪתᣩ
asel,s,loc,y,0!ͨѡǶΪ0
asel,a,loc,y,-N !ͨѡǶΪN
da,all,symm                   !ʩӶԳƱ߽
csys,0                        !ѿϵ
cmsel,s,flang_dvolu           !ѡ·
nslv,r,1                      !ѡϵĽڵ
nsel,r,loc,y,a-a1-H-L         !ѡͲ׶˽ڵ
d,all,uy  !ʩyλԼ
allsel  
sload,1,9,lock,forc,forc_bolt,1,2   !˨ʩ˨Ԥ
!һغɲʩغɴСΪforc_boltԤڵڶغɲסλƣղԤЧ  
time,10                       !ʱ䲽Ϊ10                
allsel  
lswrite,1                     !дһغɲļ   
time,20                       !ʱ䲽20  
lswrite,2                     !дڶغɲļ      
!ʩѹ
asel,s,area,,68               !ѡбΪ68
nsla,s,1                      !ѡϵĽڵ
csys,5  !ϵyΪתᣩ  
nsel,a,loc,x,DN/2             !ͨѡڱϵĽڵ   
sf,all,pres,PN                !ڱʩѹǿ,СΪPN
allsel  
time,30                       !ʱ䲽30
lswrite,3                     !дغɲļ  
lssolve,1,3,1                 !غɲ1-3


/post1                        !ͨú
set,last                      !ȡ
PLNSOL,S,EQV,0,1              !Von MisesӦ

cmsel,s,bvolu                 !ѡ˨
eslv,s,1                      !ѡĵԪ
nslv,s,1                      !ѡĽڵ
PLNSOL,S,EQV,0,1              !Von MisesӦ

cmsel,s,flang_dvolu           !ѡ·
eslv,s,1                      !ѡĵԪ
nslv,s,1                      !ѡĽڵ
PLNSOL,S,EQV,0,1              !Von MisesӦ
